home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_85-05_1985_Verlag_Heinz_Weise_de.d64 / K L I (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  14KB  |  558 lines
  1. 0 ifpeek(50307)=120thenpoke50257,16:fori=54272to54272+28:pokei,0:next
  2. 1 print"[147]";chr$(158);chr$(142);chr$(8):poke53280,7:poke53281,7:goto8000
  3. 2 poke214,0:print:print"[145][144]"
  4. 3 print"[213][178][192][192][192][192][192][192][192][192][192][192][178][192][192][178][192][192][178][178][178][178][178][178][178][192][192][178][201]"
  5. 4 print"[171][179]          [202][192][192][177][192][178][219][219][177][177][177][177][177][192][192][177][179]"
  6. 5 print"[171][179]               [221][221][221]        [221]"
  7. 6 print"[171][179]  [213][192][178][178][192][201]       [221][202][179]        [221]"
  8. 7 print"[171][179]  [221][213][177][177][192][203]       [171][192][179]       [160][221]"
  9. 8 print"[221][221]  [171][179]           [171][192][179]   [213][201]  [160][221]"
  10. 9 print"[221][221]  [171][179]   [213][178][192][178][192][178][192][192][203] [221]   [171][179]   [221]"
  11. 10 print"[171][179][160][160][171][179]   [221][202][192][177][192][179][213][192][192][192][203]   [171][179]  [213][179]"
  12. 11 print"[171][179]  [171][179]   [202][192][192][192][192][177][203]       [171][179]  [221][221]"
  13. 12 print"[171][179]  [171][179]              [160]  [171][179]  [171][179]"
  14. 13 print"[171][203]  [221][202][192][178][178][178][192][192][192][178][178][178][178][178][178][192][192][178][178][203][221]  [171][179]"
  15. 14 print"[221][220]  [202][192][192][177][177][177][192][192][192][177][177][177][177][177][177][192][192][177][177][178][179]  [171][179]"
  16. 15 print"[221][220]                  [160] [220][221][209]  [221][221]"
  17. 16 print"[221][220]                    [220][206]   [171][179]"
  18. 17 print"[171][178][178][192][178][178][178][192][178][192][192][201]  [213][178][192][178][178][192][178][192][206]    [209][221]"
  19. 18 print"[221][171][177][192][177][177][177][201][221][213][192][203]  [202][177][201][221][171][192][177][206]    [206][192][179]"
  20. 19 print"[171][179]     [171][179][221]      [221][202][177][192][206]    [206][219][192][179]"
  21. 20 print"[171][179]     [171][219][179]      [171][192][192][206]    [206] [221][213][179]"
  22. 21 print"[171][179]     [171][179][202][178][178][178][178][178][192][203] [206]    [206][192][192][219][219][179]"
  23. 22 print"[221][221]     [202][177][192][177][177][177][177][177][192][192][209]    [206][178][178][178][177][219][179]"
  24. 23 print"[221][221]                   [206][192][219][203][171][192][219][179]"
  25. 24 print"[171][177][178][178][178][178][201]             [206][192][192][219][192][177][192][219][179]"
  26. 25 print"[202][192][177][177][177][177][177][192][192][192][192][192][192][192][192][192][192][192][192][209][192][192][192][177][192][192][192][177][203]"
  27. 26 poke214,0:print:print"[158]":return
  28. 28 poke214,0:print:print"[145]"
  29. 29 print"[213][178][192][192][192][192][192][192][192][192][192][178][178][178][178][192][192][178][178][178][192][192][192][192][192][178][192][192][201]"
  30. 30 print"[171][179]         [202][177][177][177][192][192][177][177][203]     [171][178][178][179]"
  31. 31 print"[171][179]                       [202][177][177][179]"
  32. 32 print"[171][179]    [213][201]                    [221]"
  33. 33 print"[171][203]    [171][179]                    [221]"
  34. 34 print"[221]     [221][221]   [213][178][178][192][192][192][178][201]         [221]"
  35. 35 print"[221]     [221][221]   [171][219][177][192][192][192][179][171][178][178][178][178][192][201]   [221]"
  36. 36 print"[221]     [171][179]   [221][221]    [202][177][177][177][177][177][201][221]   [221]"
  37. 37 print"[221]     [171][179]   [171][179]          [171][179]   [221]"
  38. 38 print"[221]   [213][192][219][179]   [171][179]          [221][221]   [221]"
  39. 39 print"[221]   [221] [171][179]   [171][219][192][192][192][192][178][178][178][201]  [171][179]   [221]"
  40. 40 print"[221]   [202][192][177][203]   [202][177][192][192][192][178][177][177][219][179]  [221][221]   [221]"
  41. 41 print"[221]               [202][192][192][177][203]  [202][203]   [221]"
  42. 42 print"[221]                           [221]"
  43. 43 print"[221]  [213][192][178][178][201]                    [221]"
  44. 44 print"[221]  [171][192][177][177][179]     [213][201]    [213][192][201]    [213][178][179]"
  45. 45 print"[221]  [202][192][192][178][179]     [171][179]    [221] [221]    [202][177][179]"
  46. 46 print"[221]     [221][221]     [171][179]    [221][213][179]      [221]"
  47. 47 print"[221]     [171][177][178][192][201]  [202][203]    [221][221][221]      [221]"
  48. 48 print"[221]     [202][192][177][192][203]        [202][177][203]      [221]"
  49. 49 print"[221]                           [221]"
  50. 50 print"[221]          [213][178][192][192][201]            [221]"
  51. 51 print"[202][192][192][192][192][192][192][192][192][192][192][177][177][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  52. 52 return
  53. 53 print"[213][192][192][192][192][192][192][192][192][201][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  54. 54 print"[221]        [171][179]                 [221]"
  55. 55 print"[221]        [171][179]              [160]  [221]"
  56. 56 print"[221]   [213][201]   [171][179]      [213][178][192][192][192][192][178][201]   [221]"
  57. 57 print"[221]   [171][179]  [213][177][179]      [221][171][192][192][178][192][179][221][160][160][160][221]"
  58. 58 print"[221]   [171][179]  [171][192][179]      [221][171][192][192][177][192][219][179]   [221]"
  59. 59 print"[221]   [221][221]  [171][192][177][178][178][201]   [221][221]    [221][221]   [221]"
  60. 60 print"[221]   [171][179]  [221][213][192][177][177][203]   [221][221]    [171][179]   [221]"
  61. 61 print"[221]   [171][179]  [171][179]       [171][179]    [171][179]   [221]"
  62. 62 print"[221]   [221][221]  [202][203]  [213][178][178][178][178][177][179]    [171][179]   [221]"
  63. 63 print"[221]   [221][221]      [221][171][177][177][177][192][203][160]   [221][221]  [213][179]"
  64. 64 print"[221]   [171][179][160][160][160][160][160][160][171][179]   [160]     [171][179]  [171][179]"
  65. 65 print"[221]   [221][202][178][192][178][192][178][178][203][221][160][160][160][160][160][160][160][160][160][171][179]  [202][179]"
  66. 66 print"[221][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  67. 67 print"[221][221] steuern sie die kugel    [221]"
  68. 68 print"[221][221] moeglichst schnell durch [221]"
  69. 69 print"[221][221] den parcours. gehen sie  [221]"
  70. 70 print"[221][221] jedoch sparsam mit den   [221]"
  71. 71 print"[221][221] steuerimpulsen um.       [221]"
  72. 72 print"[221][221]                          [221]"
  73. 73 print"[221][221]1-spieler        2-spieler[221]"
  74. 74 print"[221][202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  75. 75 print"[202][192][192][192][192][192][192][192][177][177][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  76. 76 poke214,0:print:printtab(29)"         "
  77. 77 printtab(29)"runde.... "
  78. 78 printtab(29)"spieler.. "
  79. 79 printtab(29)"          "
  80. 80 printtab(29)"          "
  81. 81 printtab(29)"          "
  82. 82 printtab(29)"          "
  83. 83 printtab(29)"[192][192][192][192][192][192][192][192][192][192]"
  84. 84 printtab(29)" runde 1  "
  85. 85 printtab(29)"[192][178][192][192][192][192][178][192][192][192]"
  86. 86 printtab(29)"1[221]    [221]   "
  87. 87 printtab(29)"2[221]    [221]   "
  88. 88 printtab(29)"[192][177][192][192][192][192][177][192][192][192]"
  89. 89 printtab(29)" runde 2  "
  90. 90 printtab(29)"[192][178][192][192][192][192][178][192][192][192]"
  91. 91 printtab(29)"1[221]    [221]   "
  92. 93 printtab(29)"2[221]    [221]   "
  93. 94 printtab(29)"[192][177][192][192][192][192][177][192][192][192]"
  94. 95 printtab(29)" runde 3  "
  95. 96 printtab(29)"[192][178][192][192][192][192][178][192][192][192]"
  96. 97 printtab(29)"1[221]    [221]   "
  97. 98 printtab(29)"2[221]    [221]   "
  98. 99 printtab(29)"[192][177][192][192][192][192][177][192][192][192]"
  99. 104 return
  100. 109 poke214,12:print:print
  101. 110 print"[221]   [171][192][203] [171][178][177][177][192][203]         [171][179]   [221]"
  102. 111 print"[221]   [171][192][201] [202][179]     [213][178][192][178][178][192][192][192][179][221]   [221]"
  103. 112 print"[221]   [221] [171][178][192][179]     [202][177][192][177][177][192][192][201][202][219][201]  [221]"
  104. 113 print"[221]   [171][192][219][219][192][179]            [171][178][219][179]  [221]"
  105. 114 print"[221]   [221] [221][221] [221]            [202][177][177][203]  [221]"
  106. 115 print"[221]   [202][192][177][177][201][221]                  [221]"
  107. 116 print"[221]       [221][221]       [218]          [221]"
  108. 117 print"[221]       [171][219][201]                 [221]"
  109. 118 print"[194]       [221][221][221]                 [221]"
  110. 119 return
  111. 120 goto8000
  112. 200 a=peek(56320)
  113. 220 ifa<>127thenpokes4,65:i=i-1
  114. 230 if(aand8)=0thenvx=vx+b(ru)
  115. 240 if(aand4)=0thenvx=vx-b(ru)
  116. 250 if(aand1)=0thenvy=vy-b(ru)
  117. 260 if(aand2)=0thenvy=vy+b(ru)
  118. 270 return
  119. 300 a=peek(203)
  120. 320 ifa<>64thenpokes4,65:i=i-1
  121. 330 ifa=7thenvy=vy-b(ru)
  122. 340 ifa=2thenvy=vy+b(ru)
  123. 350 ifa=12thenvx=vx-b(ru)
  124. 360 ifa=23thenvx=vx+b(ru)
  125. 370 return
  126. 500 u=0
  127. 510 ifx>cthend=1:e1=252:e2=253
  128. 515 ifx<cthend=-1:e1=250:e2=251
  129. 520 ify>gthenh=1
  130. 530 ify<gthenh=-1
  131. 600 return
  132. 700 ifk=129thengoto2400
  133. 730 pokesi+4,129:ifk=3thengoto800
  134. 731 pokevc+23,128:pokevc+29,128
  135. 732 if(kand2)<>0then:pokevc+21,peek(vc+21)-2:pokev2,0:return
  136. 740 pokevc+21,peek(vc+21)-(k-1)
  137. 745 ui=ui+2:pokeuu(ui),32:pokeuu(ui+1),32
  138. 750 pokev2,0
  139. 760 pokevc+21,(peek(vc+21)or2)
  140. 761 pokevc+23,0:pokevc+29,0
  141. 763 forn=1to100:next
  142. 790 return
  143. 800 pokesi,103:pokesi+1,17
  144. 815 pokesi+4,17:forn=1to300:next:pokesi+4,16
  145. 820 forn=30000to1000step-500
  146. 822 pokesi+4,33:i=i-2
  147. 823 poke214,5:print:printtab(31);i;"[157]  "
  148. 824 ifx>90thenx=x-2
  149. 826 ifx<90thenx=x+2
  150. 828 ify>190theny=y-2
  151. 830 ify<190theny=y+2
  152. 832 pokesi,nand255:pokesi+1,int(n/256)
  153. 834 pokevc,x:pokevc+1,y
  154. 835 pokevc+39,fa
  155. 836 pokevc+23,peek(vc+23)+1
  156. 837 fa=n/2000
  157. 838 pokevc+29,peek(vc+29)+1
  158. 840 pokesi+4,32
  159. 842 next
  160. 843 pokevc+39,13
  161. 844 pokevc+23,0:pokevc+29,0
  162. 854 x=90:y=190:vx=0:vy=0
  163. 855 pokevc,x:pokevc+1,y
  164. 857 c=100:g=80:pokevc+2,c:pokevc+3,g
  165. 858 pokev2,0
  166. 860 return
  167. 1000 pokesi+4,17:m=0
  168. 1010 poke2040,13:pokev1,0
  169. 1015 pokesi,138:pokesi+1,58:pokesi+24,15
  170. 1020 if(peek(v1)and1)<>0thenvx=vx*-1:x=x+2*vx:m=1
  171. 1022 poke2040,14:pokev1,0
  172. 1023 pokesi,138:pokesi+1,58:pokesi+24,15
  173. 1024 if(peek(v1)and1)<>0thenvy=vy*-1:y=y+2*vy:m=2
  174. 1025 poke2040,11
  175. 1035 pokevc,x:pokev3,y
  176. 1060 pokev1,0
  177. 1070 pokesi+4,0:pokesi+24,9
  178. 1071 pokesi,98:pokesi+1,193
  179. 1080 if(x<20orx>245ory<55ory>235)thengoto1112
  180. 1085 if(peek(v1)and1)=0thenx1=x:y1=y:return
  181. 1087 pokesi,73:pokesi+1,193
  182. 1088 pokesi+4,17
  183. 1090 ifm<>1thenvx=vx*-1:x=x+2*vx
  184. 1091 ifm<>2thenvy=vy*-1:y=y+2*vy
  185. 1095 pokevc,x:pokev3,y:pokev1,0
  186. 1097 pokesi+4,0
  187. 1098 if(x<20orx>245ory<55ory>235)thengoto1112
  188. 1099 if(peek(v1)and1)=0thenx1=x:y1=y:return
  189. 1112 x=x1:y=y1:vx=0:vy=0:return
  190. 1200 rem up
  191. 1220 ifk=3thenvx=vx+.3:po=2
  192. 1225 ifk=9thenvx=vx+.3:po=3
  193. 1230 ifk=33thenvx=vx-.3:po=5
  194. 1235 ifk=65thenvx=vx+.3
  195. 1240 ifk=5thenvx=vx-.3:vy=vy+.2:po=2
  196. 1270 pokev2,0
  197. 1280 ifk=17thenvx=vx-.3:po=4
  198. 1285 ifk=129thengoto4000
  199. 1299 return
  200. 1400 rem up
  201. 1405 ifpo<4thengoto1415
  202. 1410 if(y<165andy>143and(x<39orx>173))thengosub1000:goto1480
  203. 1415 pokesi+4,129:forn=1to250:nextn
  204. 1420 form=1to10
  205. 1424 pokesi+4,33:i=i-5
  206. 1425 poke214,5:print:printtab(31);i;"[157]  "
  207. 1426 pokesi+4,32:forn=1to50:next
  208. 1427 nextm
  209. 1430 vx=0:vy=0
  210. 1450 x=px(po):y=py(po)
  211. 1452 pokevc,x:pokevc+1,y
  212. 1480 pokev1,0
  213. 1490 return
  214. 1500 ifk=3thenvy=vy+.3
  215. 1540 ifk=5thenvx=vx-.2
  216. 1550 ifk=9thenvx=vx-.2
  217. 1560 ifk=17thenvy=vy+.2
  218. 1570 ifk=33thenvx=vx+.2
  219. 1580 ifk=65thenvx=vx+.2
  220. 1590 pokev2,0
  221. 1610 ifk=129thengoto1800
  222. 1700 return
  223. 1800 rem *
  224. 1805 gosub10500
  225. 1806 ifpl=1thenzz=10
  226. 1807 ifpl=2thenzz=11
  227. 1808 gosub10200
  228. 1809 ifpl=1theng1=g1+i
  229. 1810 ifpl=2theng2=g2+i
  230. 1812 poke214,0:print:printtab(0)"[145]spieler-1:";g1;tab(18)"spieler-2:";g2
  231. 1855 if(sp=2andpl=1)thenpl=2:goto9485
  232. 1860 pl=1
  233. 1880 poke1142,50:poke1182,48+pl:ru=2
  234. 1900 rem*
  235. 1901 r=1:e1=250:e2=251:ui=6
  236. 1905 pokevc+23,0:pokevc+29,0
  237. 1907 pokev1,0:pokev2,0:pokevc+21,0
  238. 1908 pokevc+40,14
  239. 1910 gosub28
  240. 1912 poke214,0:print:print"[158]"
  241. 1913 poke53280,0:poke53281,0
  242. 1925 forn=0to62:readm:poke960+n,m:next
  243. 1930 forn=0to62:readm:poke16000+n,m:next
  244. 1935 forn=0to62:readm:poke16064+n,m:next
  245. 1940 forn=0to62:readm:poke16128+n,m:next
  246. 1945 forn=0to62:readm:poke16192+n,m:next
  247. 1950 forn=2042to2046:poken,15:next
  248. 1953 forn=4to13:readm:pokevc+n,m:next
  249. 1955 forn=1to10:readm:uu(n)=m:next
  250. 1966 pokevc+23,0:pokevc+29,0
  251. 1967 poke2047,255:poke2041,253
  252. 1968 pokevc+14,130:pokevc+15,115
  253. 1970 pokevc+21,255:ui=6
  254. 1971 x=90:y=190:vx=0:vy=0:k=0
  255. 1972 pokevc,x:pokevc+1,y:pokev2,0
  256. 1973 c=100:g=80:pokevc+2,c:pokevc+3,g
  257. 1974 i=1000:pokev2,0
  258. 1975 pokevc+23,0:pokevc+29,0
  259. 1990 forn=1to6:pokeuu(n),104:next
  260. 1991 forn=7to10:pokeuu(n),92:next
  261. 1992 ui=-1
  262. 2080 gosub10000
  263. 2100 rem*
  264. 2105 i=i-1
  265. 2110 onflgosub200,300
  266. 2145 poke214,5:print:printtab(31);i;"[157]  "
  267. 2146 ifi<2theni=0:goto2400
  268. 2148 ifr=1thenpoke2041,e1:r=2:goto2150
  269. 2149 ifr=2thenpoke2041,e2:r=1
  270. 2150 pokesi+4,0
  271. 2155 vx=vx-vx/25:vy=vy-vy/25
  272. 2160 x=x+vx:y=y+vy
  273. 2175 pokevc,x:pokev3,y
  274. 2180 l=peek(v1):if(land1)=1thengosub1000
  275. 2190 c=c+d:g=g+h
  276. 2195 pokev4,c:pokev5,g
  277. 2200 u=u+1:ifu=15thengosub500
  278. 2220 k=peek(v2):if(kand1)=1thengosub700
  279. 2300 goto2100
  280. 2400 rem*
  281. 2405 gosub10500
  282. 2410 zz=14+pl
  283. 2420 gosub10200
  284. 2459 ifpl=1theng1=g1+i
  285. 2460 ifpl=2theng2=g2+i
  286. 2461 poke214,0:print:printtab(0)"[145]spieler-1:";g1;tab(18)"spieler-2:";g2
  287. 2462 if(sp=2andpl=1)thenpl=2:goto1970
  288. 2470 poke1142,51
  289. 2600 rem*
  290. 2601 pokevc+21,0:pl=1:ru=3
  291. 2602 poke53280,6:poke53281,6
  292. 2610 forn=2to12step2:readm:pokevc+n,m:readm:pokevc+n+1,m:next
  293. 2615 forn=1to6:poke2040+n,254:next
  294. 2619 forn=600to62:poke960+n,0:next
  295. 2620 pokevc+23,12:pokevc+29,114
  296. 2622 pokevc+14,116:pokevc+15,183
  297. 2623 forn=40to45:readm:pokevc+n,m:next
  298. 2624 forn=1to5:readpx(n):readpy(n):next
  299. 2625 gosub2
  300. 2626 poke55777,15:poke55817,15:poke55857,15
  301. 2627 poke55838,15:poke55878,15
  302. 2630 pokevc+21,255
  303. 2650 po=1:x=px(po):y=py(po)
  304. 2651 pokevc,x:pokevc+1,y
  305. 2660 i=1000:poke1182,48+pl
  306. 2665 poke214,0:print:printtab(0)"[145]runde 3:achtung bande nicht beruehren"
  307. 2680 gosub10000:i=1500:pokev2,0:pokev1,0
  308. 2681 poke1906,114:poke1907,114:poke1908,114
  309. 2682 poke214,0:print:print"[145]                                       "
  310. 2683 poke214,0:print:printtab(0)"[145]spieler-1:";g1;tab(18)"spieler-2:";g2
  311. 2684 vx=0:vy=0
  312. 2800 rem*
  313. 2810 i=i-1
  314. 2820 onflgosub200,300
  315. 2860 poke214,5:print:printtab(31);i;"[157]  "
  316. 2865 ifi<0theni=0:goto4000
  317. 2875 vx=vx-vx/100:vy=vy-vy/100
  318. 2880 x=x+vx:y=y+vy
  319. 2885 pokevc,x:pokev3,y:pokes4,0
  320. 2887 l=peek(v1)
  321. 2890 k=peek(v2):ifk<>0thengosub1200
  322. 2895 if(land1)=1thengosub1400
  323. 2950 goto2800
  324. 3000 rem*
  325. 3050 i=i-1:onflgosub200,300
  326. 3090 poke214,5:print:printtab(31);i;"[157]  "
  327. 3091 ifi<2theni=0:goto1800
  328. 3110 pokes4,0:vx=vx-vx/30:vy=vy-vy/30
  329. 3120 x=x+vx:y=y+vy:pokevc,x:pokev3,y
  330. 3200 k=peek(v2):ifk<>0thengosub1500
  331. 3220 l=peek(v1):if(land1)=1thengosub1000
  332. 3250 goto3000
  333. 4000 rem*
  334. 4010 gosub10500:zz=19+pl:gosub10200
  335. 4025 ifpl=1theng1=g1+i
  336. 4026 ifpl=2theng2=g2+i
  337. 4027 poke214,0:print:printtab(0)"[145]spieler-1:";g1;tab(18)"spieler-2:";g2
  338. 4060 if(sp=2andpl=1)thenpl=2:goto2650
  339. 4200 poke214,10:print:print
  340. 4205 pokevc+21,0
  341. 4207 poke56322,255
  342. 4210 print"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  343. 4211 print"[221]                        [221]"
  344. 4212 print"[221] das war -k-l-i-ck-e-r- [221]"
  345. 4213 print"[221]                        [221]"
  346. 4214 print"[221]  wiederholen ? (taste) [221]"
  347. 4215 print"[221]                        [221]"
  348. 4216 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  349. 4218 clr
  350. 4220 ta=peek(203)
  351. 4225 ifta=64thengoto4220
  352. 4235 run1
  353. 8000 rem*
  354. 8001 forn=1to41:print"k-l-i-[154]ck-[156]e-[149]r  ";:next
  355. 8002 print"[144]***von bernd tritschler***"
  356. 8003 print"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  357. 8004 print"[221]  steuerung durch:              [221]"
  358. 8005 print"[221]                                [221]"
  359. 8006 print"[221]  joystick .............1       [221]"
  360. 8007 print"[221]                                [221]"
  361. 8008 print"[221]  tastatur .............2       [221]"
  362. 8009 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  363. 8010 getl$
  364. 8011 ifl$="1"thenpoke56322,224:fl=1:goto11000
  365. 8012 ifl$="2"thenfl=2:goto11100
  366. 8013 goto8010
  367. 8015 v3=53249:v4=53250:v5=53251
  368. 8016 vc=53248:v1=53279:v2=53278:pl=1
  369. 8017 pokevc,30:pokevc+1,100
  370. 8018 x=30:y=100
  371. 8019 forn=0to62:readm:poke704+n,m:next
  372. 8020 poke2040,11:pokevc+39,13
  373. 8025 pokevc+21,0:pokev1,0:pokev2,0
  374. 8032 pokevc+29,60:pokevc+23,66
  375. 8035 forn=2041to2046:poken,254:next
  376. 8036 forn=40to46:pokevc+n,15:next
  377. 8041 pokevc+2,224:pokevc+3,95
  378. 8043 pokevc+4,170:pokevc+5,64
  379. 8046 pokevc+6,170:pokevc+7,213
  380. 8049 pokevc+8,140:pokevc+9,186
  381. 8051 pokevc+10,111:pokevc+11,213
  382. 8053 pokevc+12,103:pokevc+13,168
  383. 8054 poke2047,255
  384. 8055 pokevc+14,180:pokevc+15,110
  385. 8060 forn=832to959:poken,0:next
  386. 8070 forf=1to4:readn,m:poke832+n,m:next
  387. 8080 forf=1to8:readn,m:poke896+n,m:next
  388. 8200 forn=254to255
  389. 8210 form=0to62
  390. 8220 readf:poken*64+m,f
  391. 8230 nextm,n
  392. 8235 print"[147]"
  393. 8236 b(1)=.2:b(2)=.3:b(3)=.2
  394. 8240 gosub53:poke53280,11:poke53281,11
  395. 8500 rem*
  396. 8510 si=54272:s4=54276
  397. 8520 pokesi+24,15
  398. 8525 pokesi+6,248
  399. 8530 pokesi+4,8
  400. 8540 pokesi+4,16
  401. 9199 pokevc+21,135
  402. 9200 rem*
  403. 9399 z=0:x=146:y=68:vx=4:vy=3
  404. 9404 poke214,20:print:printtab(13+z)"   "
  405. 9405 a=peek(56320):aa=peek(203)
  406. 9406 if(aand8)=0thenz=z+1
  407. 9407 if(aand4)=0thenz=z-1
  408. 9408 ifaa=12thenz=z-1
  409. 9409 ifaa=23thenz=z+1
  410. 9410 poke214,20:print:printtab(13+z)"<->"
  411. 9412 ifz=-2thensp=1:goto9490
  412. 9413 ifz=2thensp=2:goto9490
  413. 9415 vx=vx-vx/50:vy=vy-vy/50
  414. 9417 x=x+vx:y=y+vy:pokevc,x:pokev3,y
  415. 9418 k=peek(v2):ifk<>0thengosub1500
  416. 9419 l=peek(v1):if(land1)=1thengosub1000
  417. 9485 goto9404
  418. 9490 vx=0:vy=0:i=1000:x=65:y=215
  419. 9491 pokevc,x:pokev3,y:pokev1,0
  420. 9492 gosub109:pokev1,0:pokev2,0
  421. 9493 poke1142,49:poke1182,48+pl:ru=1
  422. 9495 pokevc+21,255:gosub10000:goto3000
  423. 9510 rem ball
  424. 9512 data7,0,0,31,192,0,127,240,0,127,240,0,255,248,0,245,248
  425. 9514 data0,107,240,0,118,240,0,61,224,0,31,192,0,7,0,0
  426. 9516 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  427. 9520 data12,248,15,248,13,248,16,248
  428. 9525 data0,7,3,7,6,7,9,7,21,7,24,7,27,7,30,7
  429. 9550 rem rampe
  430. 9551 data0,0,0,31,255,240,63
  431. 9552 data255,248,98,16,140,194,16
  432. 9553 data134,194,16,134,255,255,254
  433. 9554 data194,16,134,194,16,134,194
  434. 9555 data16,134,255,255,254,194,16
  435. 9556 data134,194,16,134,194,16,134
  436. 9557 data255,255,254,194,16,134,194
  437. 9558 data16,134,98,16,140,63,255
  438. 9559 data248,31,255,240,0,0,0
  439. 9610 rem ziel
  440. 9611 data0,0,0,127,255,254,255
  441. 9612 data255,255,0,0,0,0,0
  442. 9613 data0,252,207,152,252,204,24
  443. 9614 data12,204,24,24,204,24,48
  444. 9615 data207,152,96,204,24,192,204
  445. 9616 data24,252,204,31,252,207,159
  446. 9617 data0,0,0,0,0,0,255
  447. 9618 data255,255,127,255,254,0,0
  448. 9619 data0,0,0,0,0,0,0
  449. 9740 rem schluessel
  450. 9741 data0,0,0,0,0,0,0
  451. 9742 data0,0,0,3,0,0,4
  452. 9743 data128,127,252,128,127,252,128
  453. 9744 data120,4,128,88,3,0,80
  454. 9745 data0,0,0,0,0,0,0
  455. 9746 data0,0,0,0,0,0,0
  456. 9747 data0,0,0,0,0,0,0
  457. 9748 data0,0,0,0,0,0,0
  458. 9749 data0,0,0,0,0,0,0
  459. 9750 rem hammer 1
  460. 9751 data0,0,0,0,0,0,0
  461. 9752 data0,0,0,0,0,0,0
  462. 9753 data0,0,0,0,0,0,0
  463. 9754 data0,0,0,0,0,0,0
  464. 9755 data0,0,6,0,0,14,0
  465. 9756 data0,30,0,0,62,0,0
  466. 9757 data63,255,224,63,255,224,62
  467. 9758 data0,0,62,0,0,62,0
  468. 9759 data0,62,0,0,0,0,0
  469. 9760 rem hammer2
  470. 9761 data0,0,0,0,0,0,0
  471. 9762 data0,0,0,0,0,0,127
  472. 9763 data0,0,254,0,1,252,0
  473. 9764 data3,248,0,7,240,0,3
  474. 9765 data248,0,1,204,0,0,134
  475. 9766 data0,0,3,0,0,1,128
  476. 9767 data0,0,192,0,0,96,0
  477. 9768 data0,48,0,0,0,0,0
  478. 9769 data0,0,0,0,0,0,0
  479. 9770 rem hammer3
  480. 9771 data0,0,0,0,0,0,0
  481. 9772 data0,0,0,0,0,0,0
  482. 9773 data0,0,0,0,0,0,0
  483. 9774 data0,0,0,0,0,192,0
  484. 9775 data0,224,0,0,240,0,0
  485. 9776 data248,0,0,248,31,255,248
  486. 9777 data31,255,248,0,0,248,0
  487. 9778 data0,248,0,0,248,0,0
  488. 9779 data248,0,0,0,0,0,0
  489. 9780 rem hammer 4
  490. 9781 data0,0,0,0,0,0,3
  491. 9782 data248,0,1,252,0,0,254
  492. 9783 data0,0,127,0,0,63,128
  493. 9784 data0,63,192,0,111,128,0
  494. 9785 data199,0,1,130,0,3,0
  495. 9786 data0,6,0,0,12,0,0
  496. 9787 data24,0,0,16,0,0,0
  497. 9788 data0,0,0,0,0,0,0
  498. 9789 data0,0,0,0,0,0,0
  499. 9790 data65,213,53,121,95,110,230,200,208,91
  500. 9795 data1565,1566,1525,1526,1485,1486
  501. 9796 data1444,1404,1443,1403
  502. 9800 rem ru 3
  503. 9805 data99,216,225,73,185,74,110,80,74,151,136,151
  504. 9810 data8,8,8,8,8,8
  505. 9820 data62,191,160,220,182,122,96,68,46,154
  506. 10000 pokesi,181:pokesi+1,65
  507. 10010 forn=5to1step-1:pokesi+4,17
  508. 10020 poke1906,45:poke1907,48+n:poke1908,45
  509. 10025 form=1to25:poke1182,176+pl:nextm
  510. 10026 pokesi+4,16
  511. 10027 form=1to25:poke1182,48+pl:nextm
  512. 10030 next
  513. 10035 pokesi,103:pokesi+1,17
  514. 10036 pokesi+4,17
  515. 10037 forn=1to100
  516. 10038 pokesi+4,16
  517. 10040 poke1906,32:poke1907,32:poke1908,32
  518. 10049 t=ti
  519. 10050 return
  520. 10200 rem
  521. 10205 fr=8400
  522. 10210 e$=t$+"[221]"+e$
  523. 10212 ifi<1thene$="-:--[221] - "
  524. 10230 form=1to10
  525. 10250 poke214,zz:print:printtab(31)"";e$;
  526. 10255 forn=1to200:nextn
  527. 10260 poke214,zz:print:printtab(31)"[146]"e$;
  528. 10265 forn=1to200:nextn
  529. 10270 nextm
  530. 10299 return
  531. 10500 rem up
  532. 10502 pokesi+4,33
  533. 10503 t=ti-t:t=int(t/60)
  534. 10505 t1=int(t/60):t2=t-t1*60
  535. 10510 t$=str$(t1):t2$=str$(t2)
  536. 10515 t$=str$(t1):t2$=str$(t2)
  537. 10520 t$=str$(t1):t2$=str$(t2)
  538. 10525 t$=right$(t$,1):t2$=right$(t2$,2)
  539. 10530 t$=t$+":"+t2$
  540. 10535 ift2<10thent$=left$(t$,2)+"0"+right$(t$,1)
  541. 10540 e$=str$(i):e$=right$(e$,3)
  542. 10550 forn=1000to20000step500
  543. 10555 pokesi,nand255
  544. 10556 pokesi+1,int(n/256)
  545. 10557 pokesi+4,33
  546. 10580 next
  547. 10585 pokesi+4,0
  548. 10590 return
  549. 11000 poke214,17:print:printtab(5)"                            "
  550. 11010 printtab(5)"steuerung durch joystick  "
  551. 11020 printtab(5)"        in port 2          [158]"
  552. 11090 goto8015
  553. 11100 poke214,17:print:printtab(5)"                          "
  554. 11110 printtab(4)"links----z      rechts----x"
  555. 11120 printtab(4)"hoch---crsr^    runter----crsr_[158]"
  556. 11125 forn=1to5000:next
  557. 11130 goto8015
  558.